home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 90 / CD Actual 90.iso / Software3D / K-3D / k3d-0.4.2.1 / share / lsystem / abop-block-form.ls < prev    next >
Encoding:
Text File  |  2004-07-23  |  286 b   |  11 lines
  1. # --- L-System Parser/Mutator --- Lj Lapre ----------------------------------
  2. 3    # recursion depth
  3. 90    # angle
  4. 10    # thickness as % of length
  5. A
  6. A=B-F+CFC+F-D&F^D-F+&&CFC+F+B>>
  7. B=A&F^CFB^F^D^^-F-D^|F^B|FC^F^A>>
  8. C=|D^|F^B-F+C^F^A&&FA&F^C+F+B^F^D>>
  9. D=|CFB-F+B|FA&F^A&&FB-F+B|FC>>
  10. @
  11.